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Guida par l'input dai programmi «arsioni 


VIC SO a C64 

Notate .che i listati contengono paro¬ 
le' racchiuse tra parentesi sraffe / /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da l()l deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario ” questo oovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sara 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori 


{CLR} 

{HOME| 
{SU} - 
{GIU*} 
{SIN} 

iors} 

{ rvs } 

(OFF) 

{BLK} 
{WHT } 
t RED} 



C«',. 



C 

{CYN} 

s 

{PUR} 

□ 

(CRN) 

<> 

{BLU} 

II 

{ YEL} 

a 

1 < 1>J 

jv 

A 

t J 
V 


1 < 3 >} 

3 

l<4>| 

s 

l<5>! 

e 

l<6>| 



OD 

BB 

BB 


ki 

l<7>| 


l<8> 1 

□ 

{ri} 

B 

{F2J 

SB 

{r3} 

□ 

IF4} 

m 

{ F5 } 

o 

{ F6 ) 


{r7j 

e 

m 

(P8 | 


Bl 

BO 





Par ricavar* gH arretrati di 

K . 


compilare N seguente tagflando: 


a Compilare ed Inviare in busta chiusa a: 

J.SOft Viale Restai 5 - 201S4 Milano - TeL 02/6888228-683797-6880641-2-3 

Nome- 


Cognome 
Indirizzo. 


CAP_ Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 

- 

dedicato a_ 

a L 2.000 cad. per un totale di L . 


Anno 

Anno. 


a mezzo 

a 


□ assegno allegato □ contanti allegati 

K- . 
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Stop Bus 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette. 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, détto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
C16 e Plus/4). Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il 06 e il PLUS/4,■ 
SYS 40704 per il C 64 




STOP SUO per Cé4 € VIC SO 

100 POKE55,0 : POKF.56, PGEK ( 56 ) - 1 :R«PEEK(56) *256:PRINT" {CLR} 
ATTENDERE PREGO..." 

110 FORI“RTOR+132:READA:CK-CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK<>22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
¥a": END 

140 SYS(R)SPRINT"{CLR}{ 2 GIU'}{RVSjSTOP BUG{OFF} ATTIVAT 
O. "; NEW 

200 DATA173,36,3,201,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 ,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,210,2 55,165,214,141,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,254,169,0 
310 DATAI 33,2 54,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214,76,55,999 


STOP SUO per Clé « PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI*16128TOl6260:READA:CK*CK+A:POKEI,A:NEXT 
120 IFCKOl 4248TIIENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,17 3,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,13i,6,96,32,232,235,133 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,210,255, J 65,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,18,32,21 0,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251,3,133,205,76,55,63 


Quattro carta 








Quello che vi presentiamo è un 
semplice sioco d’azzardo, nel 
quale ad ogni mano vengono sco¬ 
perte quattro carte, contraddistin¬ 
te unicamente dal loro seme. Al¬ 
l’inizio disponete di 25 gettoni, e 
ad ogni mano ne dovete mettere 
in gioco uno. Il computer, che fa 
da croupier, paga tre differenti 
combinazioni: con quattro carte 


diverse si vincono sette gettoni, 
con quattro carte uguali se ne vin¬ 
cono ancora sette, e infine con tre 
carte uguali la vincita è di tre getto¬ 
ni. Il gioco termina se arrivate ad 
accumulare almeno 50 gettoni, 
sbancando in computer, oppure 
se perdete tutto. 

Ed ora... buona fortuna! 


10 REM QUATTRO CARTE 


:rem 

228 

20 GOSUB960 


:rem 

129 

30 GOSUB80 


: rem 

75 

40 GOSUBl50 


:rem 

122 

50 GOSUB230 


:rem 

122 

60 GOSUB490 


: rem 

131 

70 GOTO660 


:rem 

60 

80 PRINT"{CLR}"SPRINT" POSSIEDI 

BB;"GETTONI 

":PRINT: 

PRIN 

T 


:rem 

29 

90 GOSUBl140 


:rem 

175 

100 PRINT"{ 4 SPAZI}{RVS}PREMI UN 

TASTO","{OFF} 


{ 4 SPAZI}{RVS} PER{ 3 SPAZI}GIRARE " 

:rem 

212 

110 PRINT"{OFF}{ 7 SPAZI}{RVS}LE CARTE" 

:rem 

7 

120 GETAS 


:rem 

216 

130 IFA$-""THEN120 


: rem 

203 

140 RETURN 


:rem 

117 

150 C-0:H«0 


:rem 

53 

160 S-0:D-0 


: rem 

66 

170 PRINT" {HOME} {RVSHBLK} { 12 GIU 

'}LE CARTE 

GIRATE SONO 

:{BLU}" 

• 

:rem 

62 

180 PRINT"{RVS}{ 2 DES}{ 3 SPAZI}{ 

2 DES}{ 3 

SPAZI} 


{ 2 DES}{ 3 SPAZI}{ 2 DES}{ 3 

SPAZI}" 

:rem 

100 

190 A-A+l 


:rem 

181 

200 IFA-5THEN220 


: rem 

151 

210 GOTO180 


:rem 

101 

220 A-0:RETURN 


:rera 

92 

230 ONINT(RNDO) *4) GOTO260,280,300 


:rem 

136 

240 H-H+l:J-2 


:rem 

178 

250 I»83:GOTO320 

a 

:rem 

144 

260 D-D+l:J-2 


: rem 

172 

270 I»90:GOTO320 


:rem 

144 

280 S-S+l:J«0 


:rera 

202 






290 

I-65:GOTO320 

:rem 

148 

300 

C-C+l : J-0 

:rem 

163 

310 

1-88 

:rem 

138 

320 

K-K+5 

: rem 

200 

330 

POKE8030+K,I 

:rem 

123 

340 

POKE38750+K,J 

: rem 

185 

350 

L-L+l 

:rem 

201 

360 

GOSUB410 

: rem 

174 

370 

IFL-4THBN400 

:rem 

169 

380 

FORM-1TO500 ;NEXTM 

:rem 

59 

390 

GOTO230 

srem 

106 

400 

L-0:K-0:RETURN 

srem 

89 

410 

FORNS-lTOYY 

srem 

224 

420 

POKEV ,15 

srem 

173 

430 

POKEF,250 

srem 

207 

440 

FORY-1TO10:NEXTY 

srem 

28 

450 

POKEV,0 

srem 

122 

460 

POKEF,0 

srem 

107 

470 

NEXTNS 

srem 

123 

480 

YY-0:RETURN 

srem 

213 

490 

GOSUB910 

srem 

183 

500 

IFH-1ANDD-1 ANDS-1ANDC-1THENYY-12: GOTO560 

srem 

6 

510 

IFH-40RD-40RS-40RC-4THENYY-12 :GOTO600 

srero 

120 

520 

IFH-30RD-30RS-30RC-3THENYY-5:GOTO630 

srem 

74 

530 

PRINT"{HOME}"JPRINTTAB(6)"HAI{ 2 SPAZI}PERSO" 




srem 

64 

540 

BB-BB-1:GOSUBl140 

srem 

188 

550 

RETURN 

srem 

122 

560 

PRINT"{HOME}QUATTRO CARTE DIVERSE!" 

srem 

81 

570 

GOSUB410 

srem 

177 

580 

BB-BB+7:GOSUBl 1 40 

srem 

196 

590 

RETURN 

srem 

126 

600 

PRINT"{HOME}QUATTRO CARTE UGUALI !" 

srem 

1 

610 

BB-BB+7sGOSUB410 

srem 

141 

620 

GOSUBl140:RETURN 

srem 

248 

630 

PRINT"{HOME}{ 2 SPAZI}TRE CARTE UGUALI !" 

srem 

191 

640 

BB-BB+3:GOSUB410 

srem 

140 

650 

GOSUBl140:RETURN 

srem 

251 

660 

IFBB<1THEN690 

srem 

234 

670 

IFBB>49THEN790 

srem 

42 

680 

GOTO30 

srem 

58 

690 

POKE36879,8 

srem 

67 

700 

PRINT"{CLR}" 

srem 

251 

710 

PRINT" {RVS}{WHT}SEI IN BANCAROTTA I!" 

srem 

25 

720 

POKEV,10 

srem 

171 

730 

FORQ-250TO150STEP-4 

srem 

124 

740 

POKEF,Q 

srem 

141 

750 

FORM-lTOl00 

srem 

114 

760 

NEXTM 

srem 

41 

770 

NEXTQ 

srem 

46 

780 

POKEV,0:POKEF,0: END 

srem 

156 
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790 POKEV,15 

:rem 

183 

800 FORQ-150TO250STEP4 

:rem 

77 

810 POKEF,Q 

:rem 

139 

820 FORM-lTOlOO 

:rem 

112 

830 NEXTM 

:rem 

39 

840 NEXTQ 

:rem 

4 4 

850 POKE36879, 110 

:rem 

155 

860 PRINT"{CLR}" 

:rem 

2 

870 PRINT"{ 2 SPAZI}{RVS}{WHT}MI HAI SBANCATO 

11" 



:rem 

124 

880 W-W+l 

srem 

231 

890 IFW-22THENPOKEV,0:POKEF,0:END 

srem 

84 

900 GOTO870 

srem 

113 

910 POKE7680+O/32 

srem 

169 

920 O-O+l 

srem 

210 

930 IFO-88THEN950 

srem 

244 

940 GOTO910 

srem 

112 

950 O-0:RETURN 

srem 

116 

960 POKB36879,28 

srem 

117 

970 PRINT"{CLR}{BLU}{RVS}***LE QUATTRO CARTE** 

*"srem 

97 

980 A-INT(RND(1)*2)+1 

srem 

121 

990 IFA-1THENB-0 

srem 

190 

1000 IFA-2THENB-2 

srem 

224 

1010 ONINT(RND(l)*4)GOTOl030,1040 f 1050 

srem 

63 

1020 C-65:GOTOl060 

srem 

232 

1030 C-83:GOTOl060 

srem 

233 

1040 C-88:GOTO1060 

srem 

239 

1050 C-90:GOTOl060 

srem 

233 

1060 FORE-lT02:NEXT 

srem 

175 

1070 POKE7702+D#C 

srem 

. 165 

1080 POKE38422+D,B 

srem 

216 

1090 D-D+l 

srem 

235 

1100 IFD-66THEN11 20 

srem 

49 

1110 GOTO980 

srem 

157 

1120 A-0:B-0:C-0:D-0:V-36878:F-36876 

srem 

216 

1130 BB-25 

srem 

237 

1140 FORZ-lTOl000:NEXTZ 

srem 

172 

1150 RETURN 

srem 

167 
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Il pescatore 


wm 


A chi non piace in questa stagione 
fare un bel bagno nel mare, magari 
praticando la pesca subacquea? 
In questo gioco sarai appunto un 
pescatore subacqueo, che deve 
cercare di catturare il maggior nu¬ 
mero possibile di pesci evitando 
di finire , in pasto agli squali, che 
abbondano nel tratto di mare dove 
si svolge la pesca. Per muovere il 
nostro simpatico protagonista usa 
i seguenti tasti: 

Q per andare verso l'alto 


Z per andare verso il basso 
I per andare verso sinistra 
P per andare verso destra 
Hai a disposizione una bombola 
da 300 litri di ossigeno,- la partita 
termina se vieni a contatto con uno 
squalo oppure resti senza ossige¬ 
no. Per avere una bombola nuova, 
comunque, è sufficiente riemerge¬ 
re. Alla fine del gioco il computer 
esprimerà un giudizio sulla tua abi¬ 
lità di subacqueo. 


20 REM 
30 X*16 :Y 







220 DATAI 6,17,223,252,223,17,252,0,8,28,8,0,12,104,105,12 
7 :rem 59 

230 P-32sP2«7sU»300sGOSUB320 srem 101 

240 FORT«lTO200sNEXTsPOKE7680+X+22*Y,PsPOKE38400+X+22*Y,P 


2 ,s rem 
250 SYS828:GOSUB320:U-U-1 srem 
260 GETA$sIFA$-"Q"THENY-Y-1sM-4sP2«7sIFY<5THENY-5 

srem 

270 IFY<7THENU»300 srem 
280 IFA$-"Z"THENY-Y+1SM-5sP2«7sIFY>23THENY-23 srem 
290 IFA$-"P"THENX-X+1sM«6sP2»7sIFX>2lTHENX«21 srem 
300 IFA$»"I"THENX«X-1sM-7sP2-7sIFXCOTHENX-O srem 
310 GOSUB560sGOTO240 srem 
320 PRINT"{HOME}{BLK}{RVS}PESCIs";F srem 
330 PRINT"{GIU'}{ 19 SPAZI}{SO}"sIFU<0THENGOTO390 

srem 

340 PRINT"{RVS}ARIA s";UsRETURN srem 
350 D»INT(RND(1)*330)+7834 srem 
360 IFPEEK(D) O32THEN350 srem 
370 POKED , INT (RND ( 1 ) * 2) +2s RETTJRN s rem 


380 R»RND(1)*350sPOKE7834+R,!sPOKE7834+R+1,0sRETURN 

srem 


231 

6 

14 

72 

251 

235 

119 

184 

74 

151 

123 

124 
136 
174 

249 


390 POKE7680+X+22*Y,8s POKE38400+X+22 *Y,Os PRINT"{HOME} 

{RVS}{ 12 GIU'}{ 6 DESjSEI MORTO!{OFF}" srem 193 

400 FORI»lTOlOOOsNEXTsPOKE7680+X+22*Y,32 srem 115 


410 FORT*YTO0STEP-1sP-PEEK(7680+X+22*T)sP2-PEEK(38400+X+2 
2*T) srem 115 

420 POKE38400+X+22*T,1sPOKE7680+X+22*T,8 srem 227 

430 FORI*lTO500sNEXT srem 230 

440 POKE7680+X+22*T,PsPOKE 38400+X+22*T,P2 srem 78 

450 NEXTTsPRINT"{CLR}{BLU}"sPOKE36879,27SPOKE36869,240 


460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


IFF>-100THENA$«"SUPÈRBO il" 
IFF<100THENA$«"BUONO" 

IFF<70THENA$*"PASSABILE" 

IFF< 4 0 THENA$ *"FANNU LLONE ll" 

IFF<20THENA$*"POCO DI BUONO II" 


srem 

srem 

srem 

srem 

srem 

srem 


51 

242 

213 

189 

91 

160 


FORTD-1TOl000sNEXTsPRINT"{CLR}{ 2 GIU'}{BLU}IL TUO GR 
ADO E's{GIU'}"sPRINTA$ srem 28 
PRINT"{ 3 GIU'}{BLK} GIOCHI ANCORA? (S/N)" srem 242 
GETA$ s IFA$O"S"ANDA$O"N"THEN530 srem 39 
IFA$«"S"THENRUN srem 133 
PRINT"{CLR}{BLU}"sEND 5 rem 46 
POKEl98,0s P-PEEK(7680+X+22*Y)s P2-PEEK(38400+X+22*Y) 


srem 114 

570 IFP-0ORP-1THEN390 srem 18 
580 IFP<4THENF»F+1sP-32sGOSUB350 srem 190 
590 POKE7680+X+22*Y,MsPOKE38400+X+22*Y,7sRETURN srem 42 


10 



CIÓK-plus/4 


Giorgio il giardiniere joystick 


Giorgio possiede un bellissimo 
giardino dove coltiva fiori stupen¬ 
di. Deve però difenderlo costante- 
mente dall'attacco delle erbacce e 
dei parassiti, spruzzando l'erbici¬ 
da sulle prime e l'antiparassitario 
sui fiori. 

In questo gioco sarete voi a guida¬ 
re Giorgio nella sua opera di disin¬ 
festazione (per mezzo del joystick 
n. 1), facendogli irrorare tutti i fiori 
ed evitando nel contempo che le 
erbacce si diffondano troppo 
(usate il pulsante per spruzzare i 
liquidi). In tal modo totalizzerete 
punti, ma dovrete lottare contro il 
tempo, in quanto avete solo due 
minuti a dispostine per spruzzare 
tutti i fiori. Si ottengono 10 punti 
per le margherite gialle, 20 per 
quelle blu e 40 per le rose; una 


volta irrorati, i fiori divengono 
bianchi. Inoltre ogni erbaccia elimi¬ 
nata frutta 5 punti ma, ripetiamo, 
non è necessario ucciderle tutte. 
Come abbiamo detto, l'opera è 
completa quando tutti i fiori sono 
stati irrorati, ma il gioco viene inter¬ 
rotto se vi sono troppe erbacce: 
per poter evitare che ciò si verifichi 
è utile sapere che esse appaiono 
dapprima come semi, poi come 
germogli ed infine raggiungono lo 
stato adulto nel quale si riproduco¬ 
no generando nuovi semi. Se com¬ 
pleterete il lavoro entro il tempo a 
vostra dispostine, vi troverete di 
fronte ad un nuovo giardino con 
più fiori e più erbacce, ma per ripu¬ 
lirlo disporrete di 15 secondi in più 
rispetto al precedente. 


100 COLORO,1:COLOR4,1:VOL8:GOTO390 :rem 89 

no CO--1024 :rem 85 

120 GOSUBll 30:DIMPP(200) ,JP(1 5) ,CS(1 5) ,DN$ (1 5) :rem 254 

130 SC«0:D«15:E=3:QW=E:ET=200:WL*20:LV-1:DN$-"{HOME} 

{12 GIU'}" :rem 195 

140 RS«439:AV*31 52:U-40: B-32:F071 :FI-0:GOSUB570:TI$-"000 
000" : rem 206 

150 PRINT"{CLR}{WHT}PUNTI: "SC:PRINT"{HOME}"TAB(1 4)"LIVELL 
O:"LV:PRINT"{HOME}"TAB(27)"TEMPO: "TI$; :rem 239 

160 POKE311 2+CO,69:POKE311 2, 85:FORK*31 1 3T031 50:POKEK+CO,6 
9: POKER,6 7:NEXT :rem 93 

170 POKE3151+00,69:POKE3151,73 :rem 178 

180 FORK-3152TO3992STEP40:POKEK+CO,69:POKER,66:POKEK+CO+3 
9,69:POKEK+39,66:NEXT :rem 68 

190 POKE4032+CO,69:POKE4032,74:FORK«4033T04070:POKEK+CO,6 
9:POKER,67:NEXT :rem 102 

200 POKE4071+CO,69:POKE4071,75:PL*93:QF«0 :rem 111 

210 FORK*1TO3:FORJ■1TOD :rem 201 
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220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 


FP«(INT(RND(1)*RS)*2)+AVsSP-FP+U :rem 119 
IFPEEK (FP) OBTHEN220 srem 175 
IFPEEK (SP) OBTHEN220 srem 189 
POKEFP+CO,FC:POKEFP,PL:POKESP+CO, 69 :POKESP,109:QF-QF+ 
1sNEXTsD«D-l0 srem 210 
IFFC-7lTHENFC-67sPL-94:GOTO280 srem 68 
FC*66:PL-95 srem 76 
NEXTsD»D+30:OP»3153sPOKEOP,98 :WC-105:X«0sGOSUB340sTI$ 


■"000000"SGOTO330 srem 137 

IFHOOTHENH-O srem 0 

IFE<0THENE-0 srem 180 

IFWC-108THENWC«105sX-X+EsGOSUB340sGOTO330 :rem 32 

GOSUB380 srem 176 

L-TI+500:GOT0620 srem 135 

FORH-XTOX+E 5 rem 198 

WP“INT (RND ( 1 ) * (RS*2) ) +AVS IFPEEK (WP) OBTHEN350 

srem 197 

PP(H)*WPs POKEPP(H)+CO , 7 3 s POKEPP(H),WC:NEXTsE-E+l s IFH> 
WLTHENl010 srem 204 

RETURN srem 122 

FORH-XTOX+E-1 :POKEPP(H)+CO,73:POKEPP(H),WC:NEXTSRETUR 
N srem 24 

: srem 214 

GOSUBl330:BC-15080 srem 213 

FORK-1TO4:FORNM-BCTOBC+7: READCD:POKENM, CD s NEXTs RESTOR 
EsBC-BC+8sNEXT srem 220 

BC-BC-8:FORNM-BCTOBC+111 :READCDsPOKENM,CDsNEXTsGOTO!1 
0 

DATA0,0,0,0,24,126,231 ,60 
DATA24,60,66,153,189,255,126,60 
DATA60,126,255,189,153,66,60,24 
DATA28,38,79,223,223,79,38,28 
DATAI 92,252,70,95,95,1 27,62,28 
DATA28,62,127,95,95,70,252,1 92 
DATA56,100,242,251,251,242,100,56 
DATA3,63,98,250,250,254,124,56 
DATA56,124,254,250,250,98,63,3 
DATA0,0,24,24,24,0,0,0 
DATA0,34,28,8,28,34,0,0 
DATA66,231,126,60,36,126,231,66 
DATAI 53,60,90,255,255,90,60,153 
DATA24,24,153,219,126,60,24,0 


JP(5)-40sJP(6)-39sJP(7)—1 s JP(8)--41 


IFFR-128THENGOSUB690 

NP-OP+JP(JV)SIFPEEK(NP)OBTHENNP-OP 

12 


:rem 

184 

: rem 

160 

:rem 

244 

:rem 

245 

: rem 

160 

:rem 

205 

: rem 

206 

:rem 

67 

: rem 

187 

:rem 

188 

:rem 

7 

: rem 

80 

:rem 

236 

: rem 

240 

:rem 

127 

:rem 

214 

:rem 

55 

: rem 
104 

134 

:rem 

200 

(: rem 

207 

:rem 

92 

: rem 

230 

:rem 
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650 POKENP+CO,79:POKEOP,B:POKENP,CS(JV):OP®NP :rem 165 

660 IFTI>LTHENWC-WC+1: GOTO 290 :rem 92 

670 PRINT"{HOME}"TAB(34)TI$; :IFVAL(TI$)>ETTHENl020 

srem 147 

680 GOTO620 srem 111 

690 MP-CS(JV)SGOSUB810 srem 83 

700 G-NP+CP:CM«G+CO:TP-PEEK(G)sIFTP<90ANDTP>32THENRETURN 

srem 149 

710 POKECM,65sPOKEG,108 srem 99 

720 FORSN-1T02: SOUND3 ,900,8 s rem 131 

730 FORH-lTOl50:NEXT:NEXT srem 98 

740 IFTP-109THENPOKECM,69s POKEG,109: RETURN srem 190 

750 IFTP-96THENPOKECM,l13:POKEG,96:RETURN srem 143 

760 IFTP-BTHENPOKEG,B:RETURN srem 124 

770 IFTP-93THENSC-SC+10sGOTO890 srem 178 

780 IFTP-94THENSC-SC+20sGOTO890 srem 181 

• 790 IFTP-95THENSC-SC+40sGOT0890 srem 185 

800 SOSC+5sE-E-l 5 POKEG,Bs PRINT" {HOME} { 7 DES}"; SC : RETURN 

srem 178 

810 IFMP-97THENCP--40:RETURN srem 28 

820 IFMP-98THENCP-40SRETURN srem 241 

830 IFMP-99THENCP--1sRETURN srem 237 

840 IFMP-100THENCP--41 sRETURN srem 65 

850 IFMP-101THENCP=39sRETURN srem 29 

860 IFMP-102THENCP-1: RETURN s rem 228 

870 IFMP-103THENCP--39:RETURN srem 78 

880 CP-41: RETURN :rem 239 

890 POKBCM,113:POKEG,96:PRINT"{HOME}{ 7 DES}";SC:rem 38 

900 FI-FI+1SIFFI-QFTHEN920 srem 70 

910 RETURN srem 122 

920 PRINTDN$TAB(10)"LIVELLO";LV;"COMPLETATO{GIU'}":TL-ET- 
VAL(TI$) srem 249 

930 PRINTTAB (15) "BONUS: ";TL s rem 151 

940 SC-SC+TLsLV-LV+l:D-D+4:QW-QW+1:E-QWsWL-WL+1:ET-ET+15 

srem 32 

950 IFINT(ET/1 00+.5)>INT(ET/1 00)THENET-INT(ET/1 00+.5)* 100 

srem 6 

960 IFD>70THEND»70 srem 46 

970 IFET>500THENET«500 srem 53 

980 IFQW>20THENQW-20 srem 238 

990 IFWL>40THENWL-40 srem 233 

1000 FORK-1TO2000:NEXTsGOTOl40 srem 71 

1010 PRINTDN$TAB(1 3)"TROPPE ERBACCE1":GOTO1030 srem 236 

1020 PRINTDN$TAB(13)"TEMPO SCADUTOl" srem 143 

1030 IFSOHSTHENHS-SC srem 95 

1040 FORJ-1T02000:NEXT srem 66 

1050 PRINT"{CLR}"TAB(9)"MIGLIOR PUNTEGGIOHS srem 164 

1060 PRINTTAB(9)"{GIU'}IL TUO PUNTEGGIO E'";SC srem 134 

1070 PRINTTAB(7)"{GIU'}HAI RAGGIUNTO IL LIVELLO ";LV 

srem 20 
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1080 PRINTDN$"{ 7 GIU'}"TAB(5)" {PURjPREMI IL PULSANTE PER 



RIGIOCARE" 

srem 

254 

1090 

PRINTTAB(11)"{GIU'}{RVSJRETURN{OFF} PER SMETTERE 



l<8>]" 

srem 

165 

1100 

GETQ$:M-JOY(1)ANDl28sIFM-128THEN130 

srem 

no 

mo 

IFQ$-CHR$(13)THENPOKE65298,PEEK(65298)OR4 

s POKE65299, 


208s SCNCLRsEND 

srem 

249 

1120 

GOTO1100 

srem 

191 

1130 

• 

• 

srem 

255 

1140 

PRINT"{CLR}"TAB(8)"[<!>]{RVS} GIORGIO IL 

GIARDINIERE 


{OPP}{ 2 GIU'HWHT}" srem 226 

1150 PRINTTAB(7)"USA IL JOYSTICK (PORTA 1).{GIU'}" 

: rem 44 

1160 PRINT"GIORGIO ( ) DEVE RAGGIUNGERE E IRRORARE{GIU'}" 

:rem 10 

1170 POKE3281+CO,79sPOKE3281 ,97 srem 242 

1180 PRINT"LE ERBACCE ( ).{ 2 SPAZI}IL NOSTRO GIARDINIERE 
{GIU'}" srem 62 

1190 POKE3364+CO,73:POKE3364,107 . srem 26 

1200 PRINT"DEVE ANCHE DISINFESTARE I SUOI FIORI. 

{ 2 GIU'}" srem 234 

1210 PRINTTAB (7) "** TABELLA DEI PUNTEGGI **{GIU'J" 

srem 215 

1220 PRINTTAB(10)"ERBACCE"SPC(9)"5 PUNTI{GIU'}" srem 142 
1230 FORI-0TO2 sPOKE 3651+I*2+CO,73SPOKE3651+1*2,105+1sNEXT 

srem 74 

1240 PRINT"MARGHERITE GIALLE"SPC(9)"10 PUNTI{GIU'}" 

srem 228 

1250 POKE3693+CO,71sPOKE3693,93sPOKE3733+CO,69sPOKE3733,1 
09 srem 131 

1260 PRINT"{ 3 SPAZIJMARGHERITE BLU"SPC(9)"20 PUNTI{GIU'} 
" srem 28 

1270 POKE3773+CO,67s POKE3773,93s POKE3813+CO,69sPOKE3813,1 
09 srem 134 

1280 PRINTTAB(13)"ROSE"SPC(9)"40 PUNTI{ 2 GIU'}"srem 43 
1290 POKE3853+CO,66sPOKE3853,93sPOKE3893+CO,69sPOKE3893,1 
09 srem 149 

1300 PRINTTAB(5)"{PURjPREMI IL PULSANTE PER INIZIARE[<8>] 
" srem 233 

1310 M-JOY(l)AND128SIFM-128THENRETURN srem 46 

1320 GOTO!310 srem 196 

1330 REM INIZIO CARATTERINI4336 ($3800) srem 154 

1340 COLORO,1 SPRINT"{CLR}{BLK}{ 3 GIU'}MO"sPRINT" 

{ 5 GIU'JTD000 D6PP 3800"sPRINT"{GIU'}X"SPRINT" 

{GIU'}GOl370{HOME}" srem 46 

1350 POKE51,OsPOKE55,OsPOKE52,56sPOKE56,56 * srem 187 
1360 POKE239,4sFORI*1319T01322s POKEI,13sNEXTsENDsrem 163 
1370 POKE65298,PEEK(65298)AND251s POKE65299,565 RETURN 

srem 76 
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CI6*-P' u »/4 

STM 


STM è una abbreviazione inglese 
che indica la memoria breve, cioè 
la capacità di ricordare le cose av¬ 
venute poco tempo prima. Questo 
semplice programma vi da la pos¬ 
sibilità di migliorare la vostra me¬ 
moria breve in maniera divertente. 
Al l’inizio vi viene chiesto se volete 
cimentarvi con le lettere del'alfa¬ 
beto, con le cifre da 0 a 9, oppure 
solamente con i due simboli 0-1. 
Dopo che avete fatto la vostra 
scelta, vi viene presentata per un 
tempo molto breve una sequenza 


di numeri o di lettere, che dovete 
imprimervi bene nella mente. Do¬ 
vrete poi digitare i simboli nello 
stesso ordine in cui vi sono stati 
presentati. Se la risposta sarà esat¬ 
ta, vi verrà mostrata una nuova se¬ 
quenza più lunga della preceden¬ 
te,- si comincia infatti con un solo 
carattere, e ogni volta la sequenza 
si allunga di un simbolo. Potrete 
anche gareggiare con i vostri amici: 
vincerà chi avrà ricordato la se¬ 
quenza più lunga impiegando il 
minor tempo possibile. 


10 REM **STM** : rem 225 

20 COLOR4 , 9 , 3:COLORO,16,4:PRINT"{CLR}{ 14 DES}{FLASH ON} 


{rvsHblk} * S T M * " 

:rem 

85 

30 PRINT"{ 2 GIU'}VUOI GIOCARE CON..." 

:rem 

253 

40 PRINT"{GIU'}1: LETTERE ?" 

:rem 

5 

50 PRINT"{GIU'}2: NUMERI ?" 

:rem 

1 94 

60 PRINT"{GIU'}3: SOLO CON 0-1 ?" 

:rem 

1 59 

70 PRINT"{GIU'}4: VUOI TERMINARE ?" 

: rem 

224 

80 GETA$ 

treni 

173 

90 ONVAL(A$)GOTO!10,120,130,420 

: rem 

1 71 

100 GOTO80 

treni 

50 

110 A=26:B«65:GOTOl40 

t rem 

164 

120 A«10:B»48:GOT0140 

t rem 

159 

130 A=2:B=48 

t rem 

1 05 

140 INPUT"(GIU'}SEI PRONTO <RETURN> ??";K$ 

trem 

160 

150 IFK$«" "THENl50 

t rem 

218 

160 C-l:TT-300 

trem 

250 

170 T-TI:TA«T 

trem 

38 

180 A$*""SPRINT 

trem 

70 

190 FORD *1 TOC 

trem 

25 

200 B$*CHR$(B+RND(0)*A) 

trem 

196 

210 PRINTB$ 

trem 

1 34 

220 A$*A$+B$ 

trem 

4 4 

230 FORE=1TOTT:NEXT 

trem 

243 

240 PRINT"{SIN} "J 

trem 

63 

250 NEXT 

trem 

214 
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260 

PRINT 

:rem 

37 

270 

FORW=lTO250:NEXT:PRINT"{CLR} M 

:rero 

150 

280 

REM**RISPOSTA** 

: rem 

155 

290 

POKE239,0:INPUT"RISPOSTA";AN$ 

srem 

53 

300 

IFAN$«A$THEN400 

srem 

58 

310 

PRINT"{GIU'}{RVS}SBAGLIATO!{GIU'}" 

srem 

80 

320 

PRINT"PUNTI:";C 

srem 

174 

330 

PRINT"LA RISPOSTA ERA: ";A$ 

srem 

27 

340 

PRINT"TEMPO :";STR$(INT((TA-T)/.6)/I00);" 

SECONDI" 




srem 

74 

350 

PRINT"{GIU'}GIOCHI ANCORA (S/N) ?" 

srem 

65 

360 

GETA$ 

srem 

222 

370 

IFA$ = "S"THEN140 

srem 

38 

380 

IFA$O"N"THEN360 

s rem 

99 

390 

GOTO 10 

s rem 

54 

400 

C*C+1 :TA=TI 

srem 

92 

410 

GOTO 180 

: rem 

103 

420 

END 

: rem 

109 


— 


Dieta equilibrata 

pria» parte 



Uno desìi argomenti "top" che si 
incontrano leggendo i rotocalchi o 
guardando la televisione, special- 
mente durante il periodo estivo, è 
quello della dieta: come possiamo 
riuscire a rimanere o a ritornare ma¬ 
gri senza essere costantemente af¬ 
famati ? 

Con questo programma Papersoft 
ti permette di analizzare giornal¬ 
mente la tua dieta e di scoprire 
quindi se essa risulta equilibrata. 
Non devi fare altro che impostare 
il tipo e il quantitativo in grammi 
dei cibi che hai mangiato nelle 24 
ore per ottenere un preciso re¬ 
sponso dietologico. 

Il programma è diviso, a causa del¬ 
la sua lunghezza, in 3 parti: digita 
la prima ed aspetta pazientemente 


(io approfitterei dell'attesa per gu¬ 
starmi qualche abbondante pran¬ 
zetto!) i prossimi due numeri di Pa¬ 
persoft Commodore. 

"Dieta Equilibrata" è di facilissimo 
uso, data la sua struttura a "menu", 
e contiene già le istruzioni necessa¬ 
rie per il suo corretto uso. Se possi¬ 
edi una qualsiasi stampante Com¬ 
modore puoi ottenere i dati degli 
alimenti e le stime dietologiche an¬ 
che su carta. La versione pubblica¬ 
ta gira su C64, tuttavia con una 
semplice modifica il programma si 
adatta perfettamente al Plus/4. Chi 
possiede questo computer deve 
digitare la linea 110 nel seguente 
modo: 

110 COLOR 4,6,6:COLORO,1 :CL- 
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- 1024:CO- 78:SC-3072 al CI 6 a causa della notevole me¬ 

li programma non è invece adatto moria occupata. 


100 

PRINT"{CLR}" 

:rem 

245 

no 

POKE53280,5s POKE53281 ,OsCL«54272sCO»l4sSC 

-1024 



• 

:rem 

56 

120 

FORT-OTOIO 

:rem 

63 

130 

FORI-SC+41*TTOSC+39+39*T 

srem 

138 

140 

POKEI,114sPOKEI+960-80*T,113sPOKEI+CL,CO S 

POKEI+CL+960 


150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


-80*T,CO srem 80 

NEXTsNEXT srem 78 

PRINT"{HOME}{WHT}{ 12 GIU’}{ 11 DES} {RVSjDIETA 
{ 2 SPAZI}EQUILIBRATA" :rem 55 

FORQ-0TO10 srem 65 

FORW«SC+41*QTOSC+960-39*QSTEP40 srem 108 

POKEW,107s POKEW+39-2*Q,115s POKEW+CL,COs POKEW+CL+39-2* 
Q»CO srem 185 

NEXTsNEXT srem 74 

PRINT"{HOME}{GIU'}{ 24 DES}BY G.VALENTINI" srem 250 

GOTO 3100 srem 145 

REMSVALUTAZIONE CAL.TOT. srem 40 

Ql $“" {RVS} DIETA NORMOCALORICASCONSUMO DI CALORIE 
{OFF}{ 2 SPAZI}{RVS}ENTRO LIMITI ACCETTABILI" 

srem 

Q2$«" {RVS} DIETA IPOCALORICAsCARENZA DI CALORIE" 

srem 

Q3$«" {RVS} DIETA IPERCALORICAsECCESSO DI CALORIE 
{OFF}" • srem 

IFCT<«CGANDCT>«CG-CG/8THENPRINTQ1$ srem 

IFCT<CG-CG/8THENPRINTQ2$ srem 

IFCT>CGTHENPRINTQ3$SPRINT"{ 2 SPAZI}L'ECCEDENZA E' DI 
"CT-CG" CALORIE" srem 119 

RETURN srem 115 

REMsSTAMPA VALUTAZ.VITAMINE srem 42 

IFS1$»""THENPRINTsPRINT"{ 2 SPAZl}{RVS} ASSENZA DI VI 
TAMINA A" srem 98 

IFS2$-""THENPRINTsPRINT"{ 2 SPAZI}{RVS} ASSENZA DI VI 
TAMINA Bl" srem 150 

IFS3$»""THENPRINTsPRINT"{ 2 SPAZI}{RVS} ASSENZA DI VI 
TAMINA B2" srem 153 

IFS4$-""THENPRINTsPRINT"{ 2 SPAZI}{RVS} ASSENZA DI VI 
TAMINA PP" :rem 199 

IFS5$«""THENPRINTsPRINT"{ 2 SPAZI}{RVS} ASSENZA DI VI 
TAMINA C" srem 108 

RETURN srem 122 

B%«OsOPEN3,0,1 SPRINT"{GIU'}{ 2 DES}BATTI UN NUMERO PE 
R SCEGLIERE" srem 132 

PRINT"{GIU'}{ 3 DES}QUALE VUOl{ 2 SPAZI}";sINPUT#3,B$ 
SCLOSE3 srem 96 


242 

40 

5 

177 

7 


17 



400 IFASC(B$)<480RASC(B$)>57THENB$*"":B%*0:RETURN 

:rem 112 

410 B%-VAL(B$): RETURN srem 237 

420 REM:STAMPA CALCOLO CARATTERISTICHE SINGOLO CIBO 

:rem 14 

430 PRINT:PRINT:PRINT:PRINT"{CLR}"SPC(10)"{RVS} "A$(B%+I- 

1,1) :rem 138 

440 PRINT:PRINT"CALORIE{ 13 C}"SPC(3)A$(B%+I-l,2) 

:rem 205 

450 PRINT:PRINT"PROTEINE VEG.{ 7 C}"SPC(3)"GRAMMI"SPC(3)A 
$(B%+I-1,3) :rem 31 

460 PRINT:PRINT"PROTEINE ANIM.{ 6 C}"SPC(3)"GRAMMI"SPC(3) 
A$ (B% +1-1,7) : rem 164 

470 PRINT:PRINT"GRASSI{ 14 C}"SPC(3)"GRAMMI"SPC(3)A$(B%+I 
-1,4) :rem 202 

480 PRINT:PRINT"CARBOIDRATl{ 9 C}"SPC(3)"GRAMMI"SPC(3)A$( 
B%+I-l,5) :rem 88 

490 PRINT:PRINT"VITAMINE{ 12 C}"SPC(3)A$(B%+I-1,6) 

:rem 113 

500 PRINT:PRINT"{ 6 SPAZIH 18 S)" srem 3 

510 PRINT:PRINT"{ 2 SPAZI}DATI{ 2 SPAZIJRIFERITI A 100 GR 
.DI ALIMENTO" :rem 45 

520 IFCA-1THEN610 :rem 222 

530 PRINT"{GIU'}QUANTO NE VUOI(IN GRAMMI)DI{GIUPRINTT 
AB (10) A$ (Bt-f 1-1,1) ; s INPUTX :rem 100 

540 PA-0sPV-0sG-0sZ«0sV$-""sC-0 srem 242 

550 PV"INT(VAL(A$(B%+I-l,3))*X/100*4):PA-INT(VAL(A$(B%+I- 
1,7))*X/100*4) srem 69 

560 G-INT(VAL(A$(B%+I-l,4))*X/100*9)sZ-INT(VAL(A$(B%+I-l, 
5))*X/100*4) srem 180 

570 C-PV+G+Z+PA:V$-A$(Bl+I-1,6) srem 183 

580 IFX«0THENV$«"" srem 27 

590 REM:STAMPA PROPRIETÀ' NUTRITIVE QUANTITÀ'SCELTA DI AL 
IMENTO srem 89 

600 PRINT"{CLR}" srem 250 

610 PRINTsPRINT"{ 2 SPAZI}DA"X"GRAMMI DI (RVS) "A$(B%+I-1 
,1)SPRINT:PRINT"{OFF}{ 2 SPAZl}SI OTTENGONO:" 

srem 239 

620 PRINT:PRINT" "PV"CALORIE IN "TAB(18)"{ 4 C}> {RVS} PR 
OTEINE VBG." :rem 87 

630 PRINT:PRINT" "PA"CALORIE IN "TAB(18)"{ 4 C}> {RVS} PR 
OTEINE ANIM." srem 134 

640 PRINT:PRINT" "G"CALORIE IN "TAB(18)"{ 4 C}> {RVS} GRA 

SSI" srem 77 

650 PRINT:PRINT" "Z"CALORIE IN "TAB(18)"{ 4 C}> {RVS} ZUC 

CHERI" srem 245 

660 PRINTsPRINT" "C;TAB(11)" { 10 C}> {RVS} CALORIE TOTAL 
I" srem 58 

670 PRINTsPRINT"{ 2 SPAZI}"V$;TAB(15)"{ 9 C}>{ 2 SPAZI} 
{RVS} VITAMINE" srem 68 

680 PRINTsFORTR-OTOl9sPRINT"{RVS}QZ";:NEXT:PRINTsrem 175 
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690 IFCA-1THEN840 : rem 235 
700 REM:MEMORIA ADDITIVA CARATTERISTICHE ALIMENTI SCELTI 

123 
217 
214 
160 
110 
241 
104 


:rem 
:rem 
: rem 
:rem 
:rem 
:rem 
: rem 


710 AT-AT+PA:REM:PROT.ANIM. 

720 VT-VT+PV:REM:PROT.VEG. 

730 GT-GT+G:REM«GRASSI 

740 ZT-ZT+Z:REM:ZUCCHERI 

750 CT-CT+C:REM«CALORIE TOT. 

760 REM:MEMORIA ADDITIVA VITAMINE 

770 IFMID$(V$,1,2)>"'{ 2 SPAZI >"THENSl $»MID$ (V$, 1 ,2) 

:rem 203 

780 IFMID$(V$,3,3)>"{ 3 SPAZI}"THENS2$-MID$(V$,3#3) 

:rem 211 

790 IPMIDS(V$,6,3)>"{ 3 SPAZI}"THENS3$-MID$(V$,6,3) 

:rem 219 

800 IFMID$(V$,9,3)>"{ 3 SPAZI}"THENS4$«MID$(V$,9,3) 

:rem 218 

810 IFMID$(V$,12,2)>"{ 2 SPAZI}"THENS5$=MID$(V$,12,2) 

:rem 46 

820 VT$-Sl$+S2$+S3$+S4$+S5$ :rem 163 

830 IFCA$-"S"THENCA$*"":CA-1«OPENl,4:CMDl:GOTO420 




:rem 

m 

840 

IFCA$-""THENCA-0:CA$-"S":PRINT#1«CLOSEl. 

:rem 

38 

850 

X-0:REM AZZERAMENTO GRAMMI ALIMENTO 

: rem 

230 

860 

PRINT"{OFF}{GIU' } PER CONTINUARE PREMI UN TASTO" 




:rem 

156 

870 

GETQW$ «IFQW$»""THEN870 

: rem 

47 

880 

RETURN:REM«RITORNA AL MENU PRINCIPALE 

:rem 

160 

890 

REM«STAMPA SUBMENU PANE 

:rem 

200 

900 

PRINT"{CLR}" : 1-1 

: rem 

238 

910 

PRINTTAB(10)"{ 2 GIU'}{RVS}PANE E SIMILARI{ 

2 GIU 




:rem 

13 

920 

FORR-1TO16 

:rem 

76 

930 

PRINTTAB(6)RTAB(11)A$(R,l ) 

:rem 

200 

940 

NEXT 

:rem 

220 

950 

GOSUB380 

:rem 

185 

960 

IFB%>160RB%<1THEN900 

:rem 

119 

970 

GOSUB420 

:rem 

182 

980 

RETURN 

:rem 

129 

990 

REM:STAMPA SUBMENU PRIMI 

: rem 

38 

1000 PRINT"{CLR} M «1-145 

:rem 

127 

1010 PRINTSPC(16)"{RVS}PRIMI{GIU'}" 

:rem 

213 

1020 FORR-145TO160 

:rem 

13 


1030 PRINTR-144TAB(4)"{RVS}"A$(R,1)"{OFF}"TAB(19)R-l44+16 
"{RVS}"A$(R+16,1) :rem 223 

1040 NEXT :rem 4 

1050 PRINT"{GIU'}{RVS}NB:(OFF)DATI RIFERITI A 100 GR.+CON 
DIMENTI" :rem 68 

1060 GOSUB380 «rem 226 

1070 IFB%>320RB%<1THENl000 «rem 198 

1080 GOSUB420 «rem 2.23 
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1090 

RETURN 

:rem 

170 

1100 

REM:STAMPA SUBMENU CARNI 

:rem 

50 

ino 

PRINT"{CLR}":1-17 

:rem 

79 

1120 

FORE-1TOl3:PRINT"{ 2 SPAZI}Q"NEXT:PRINT 

:rem 

188 

1130 

PRINTTAB( 1 7 ) " { 2 GIU'}{RVS}CARNI{GIU•}" 

:rem 

216 

1140 

PRINT" {RVS}FRATTAGLIE"TAB(23)"CARNI FRESCHE" 




:rem 

202 

1150 

PRINT" {RVS}& AFFETTATI{GIU'}" 

srem 

121 

1160 

FORR-17T029 

srem 

180 

1170 

PRINTR-17+lTAB(4)"{RVS}"A$(R»1)"{OFF}"TAB(21)R-l7+14 


"{RVS}"A$(R+l3,1)"{OFF}" 

srem 

168 

1180 

NEXT 

srem 

9 

1190 

GOSUB380 

srem 

230 

1200 

IFB%> 320RB%<1THENl 11 0 

srem 

195 

1210 

GOSUB420 

srem 

218 

1220 

RETURN 

srem 

165 

1230 

REM:STAMPA SUBMENU PESCE 

srem 

57 

1240 

PRINT"{CLR}":1-103 

srem 

127 

1250 

FORU-1TO40:PRINT"Q[<+>]";:NEXT:PRINT 

srem 

118 

1260 

PRINTSPC(18)"{RVSTPESCE{GIU'}" 

srem 

205 

1270 

FORR-103TO112 

srem 

11 

1280 

PRINTR-103+lTAB(4)"{RVS}"A$(R,1)"{OFF}"TAB(1 7)R- 

103+ 


11" {RVS}"A$(R+10,1)"{OFF}" 

srem 

1 

1290 

NEXT 

srem 

11 

1300 

GOSUB380 

srem 

223 

1310 

IFB%>200RB%<1THENl 240 

srem 

198 

1320 

GOSUB420 

srem 

220 

1330 

RETURN 

srem 

167 

1340 

REM:STAMPA SUBMENU ORTAGGI-LEGUMI 

srem 

200 

1350 

PRINT"{CLR}":1-43 

srem 

84 

1360 

FORT-lTOl0:PRINT"SA{ 2 SPAZI}";:NEXT:PRINT 

srem 

145 

1370 

PRINTSPC(13)"{GIU t T{RVS}ORTAGGI*LEGUMI{GIU' 

>" 




srem 

101 

1380 

F0RR-43T056 

srem 

183 

1390 

PRINT"{RVS}"R-43+lTAB(4)"{OFF}"A$(R, 1 )TAB(20)"{RVS}" 


R-43+15"{OFF}"A$(R+l4,1) 

srem 

171 

1400 

NEXT 

srem 

4 

1410 

GOSUB380 

srem 

225 

1420 

IFB%>280RB%<1THENl350 

srem 

210 

1430 

GOSUB420 

srem 

222 

1440 

RETURN 

srem 

169 

1450 

REM:STAMPA SUBMENU UOVA-FORMAGGI 

srem 

129 

1460 

PRINT"{CLR}":1-123 

srem 

133 

1470 

FORL-lTO20:PRINT"£{<*>]";:NEXT:PRINT 

srem 

128 

1480 

PRINTSPC(13)"{RVSTUOVA & FORMAGGI{GIU'}" 

srem 

9 

1490 

FORR-123T0133 

srem 

20 

1500 

PRINTR-123+1TAB(4)"{RVS}"A$(R, 1 )"{OFF}"TAB( 1 8)R- 

■ 123+ 


12" {RVS}"A$(R+l1,1)"{OFF}" 

srem 

3 

1510 

NEXT 

srem 

6 

1520 

PRINT"{GIU'}{RVS}NB:{OFF}2 UOVA CORRISPONDONO A 

CIRC 


A 100 GR." 

srem 

111 


20 



1530 

GOSUB380 


:rem 

228 

1540 

IFB%>220RB%<1THENl460 


:rem 

209 

1550 

GOSUB420 


:rem 

225 

1560 

RETURN 


:rem 

172 

1570 

REM:STAMPA SUBMENU FRUTTA 


sretn 

166 

1580 

PRINT"{CLR}" :1*71 


:rem 

90 

1590 

FORT*!TO26:PRINT"Z Q";:NEXT:PRINT 


:rem 

1 80 

1600 

PRINTSPC(17)"{GIU'}TRVS}FRUTTA{GIU'}" 


:rem 

65 

1610 

F0RR-71T082 


:rem 

179 

1620 

PRINTR-71+ 1TAB(4) "{RVS} " A$(R,1)TAB(19)" 

{OFF}"R-71 +1 3 


" {RVS } " A$ (R+l 2,1) 


:rem 

215 

1630 

NEXT 


:rem 

9 

1640 

GOSUB380 


:rem 

230 

1650 

IFB%>240RB%<1THENl580 


:rem 

216 

1660 

GOSUB420 


:rem 

227 

1670 

RETURN 


:rem 

174 

1680 

REM:STAMPA SUBMENU BEVANDE 


:rem 

199 

1690 

PRINT"{CLR}":1-177 


:rem 

147 

1700 

FORY-lTO40:PRINT"A :NEXT:PRINT 


:rem 

196 

1710 

PRINTTAB(16)"{RVSTBEVANDE{GIU'}" 


srero 

65 

1720 

FORR-177T0185 


: rem 

32 

1730 

PRINTR-17 6TAB(4)"{RVS}"A$(R,l)"{OFF}"TAB(l8)R-1 76+9" 


{RVS}"A$(R+9,1)"{OFF}" 


:rem 

105 

1740 

NEXT:PRINT 


: rem 

210 

1750 

PRINT"{RVS}NB:{OFF}LE BEVANDE ANALCOLICHE 

PRODUCONO" 




2 rem 

94 

1760 

PRINT"{ 3 SPAZIJCALORIE SECONDO LA % DI 

ZUCCHERI 

N 




2 rem 

69 

1770 

GOSUB380 


2 rem 

234 

1780 

IFB%>180RB%<1THENl 690 


2 rem 

225 

1790 

GOSUB420 


2 rem 

231 

1800 

RETURN 


2 rem 

169 

1810 

REM:STAMPA SUBMENU DOLCI 


2 rem 

56 

1820 

PRINT"{CLR}":1-195 


2 rem 

142 

1830 

FORMM-1TO20:PRINT"{RVS}ZQ"?:NEXT:PRINT 
PRINTTAB(18)"{GIU'}{RVSTDOLCl{ 2 GIU'}" 


2 rem 

3 

1840 


2 rem 

223 

1850 

FORR-195TO205 


2 rem 

29 

1860 

PRINTR-195+lTAB(4)"{RVS}"A$(R,l)"{OFF}" 

TAB (1 8) R- 

195+ 


12"{RVS}"A$(R+11,1) 


2 rem 

72 

1870 

NEXT 


2 rem 

15 

1880 

GOSUB380 


2 rem 

236 

1890 

IFB%>220RB%<1THENl 820 


2 rem 

217 

1900 

GOSUB420 


2 rem 

224 

1910 

RETURN 


2 rem 

171 

1920 

REM:STAMPA SUBMENU CONDIMENTI 


2 rem 

185 

1930 

PRINT"{CLR}":1-95 


2 rem 

95 

1940 

FORY-1TO20:PRINT"S A NEXT:PRINT 


2 rem 

155 

1950 

PRINTTAB(15)"{GIU t }TRVS}CONDIMENTI{ 2 GIU 

')* 





2 rem 

93 

1960 

F0RR-95T0102 


2 rem 

234 


21 



1970 

PRINTTAB(10)R-95+1”{ 2 SPAZI}{RVS}"A$(R,1) 

"{OFF} 

it 



2 rem 

193 

1980 

NEXT 

: rem 

17 

1990 

GOSUB380 

: rem 

238 

2000 

IFB%>80RB%<1THENl930 

:rero 

159 

2010 

GOSUB420 

: rem 

217 

2020 

RETURN 

:rem 

164 

2030 

REM:COMPUTO CALORIE TOTALI*VALUTAZIONE DELLA DIETA 



: rem 

27 

2040 

PRINT"{CLR}{ 2 GIU'}":FORN*ITO9SPRINT"{ 3 

SPAZI}S";: 


NEXT:PRINT 

:rem 

94 

2050 

IFCT-0THEN2100 

: rem 

76 

2060 

H-AT/CT*100:REM:CALCOLO % 

:rem 

221 

2070 

J“VT/CT*100 : REM :DEI PRINCIPI 

2 rem 

3 

2080 

K-GT/CT*100 : REM : NUTRITIVI 

2 rem 

148 

2090 

L*ZT/CT*100 

2 rem 

131 

2100 

PRINT"{GIU'} GLI ALIMENTI DA TE SCELTI" 

2 rem 

182 

2110 

PRINT"{GIU'} CONTENGONO COMPLESSIVAMENTE" 

: rem 

95 

2120 

PRINTTAB(25)"{GIU•}CALORIE"TAB(34)"%" 

2 rem 

45 

2130 

PRINT"{GIU'} {RVS} CALORIE TOTALI"TAB(20)"{ 4 C}> "C 


T;TAB(34)"100" 

2 rem 

212 

2140 

PRINT"{GIU'} {RVS} PROTEINE ANIMALI"TAB(20)"{ 4 

c} 


> "ATjTAB(34)LEFT$(STR$(H)» 5) 

2 rem 

74 

2150 

PRINT"{GIU'} {RVS} PROTEINE VEGETALI"TAB(20)" 



{ 4 C}> "VT;TAB(34)LEFT$(STR$(J),5) 

2 rem 

184 

% 

2160 

PRINT"{GIU'} {RVS} GRASSI"TAB(20)"{ 4C}> 

"GT;TAB(34 


)LEFT$ (STR$ (K) ,5) 

2 rem 

189 

2170 

PRINT"{GIU'} {RVS} CARBOIDRATI"TAB(20)"{ 

4 C}> • 

'ZT;T 


AB(34)LEFT$(STR$(L),5) 

2 rem 

45 

2180 

PRINT"{GIU'} {RVS} VITAMINE"TAB(20)"{ 4 C}>"VT$ 




2 rem 

2 

2190 

PRINT”{GIU*}{ 2 SPAZI}****************************** 



2 rem 

150 

2200 

PRINT"{GIU'}VUOI ALTRI ALIMENTI? (S/N) 

2 rem 

246 

2210 

GETTUS:IFTU$»""THEN2210 

2 rem 

125 

2220 

IFTU$="S"THEN5550 

2 rem 

244 

2230 

IFTU$<>"S"ANDTU$<>"N"THEN221 0 

2 rem 

212 

2240 

RETURN 

2 rem 

168 



2 rem 

0 
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Keypad 



Le straordinarie capacità di gestio¬ 
ne della memoria offerte dal C64 
permettono modiche, anche radi¬ 
cali, dell'Interprete Basic e del Si¬ 
stema Operativo (Kernal). È infatti 
possibile ricopiare la memoria 
ROM (Basic + S.O.) nella RAM 
avente gli stessi indirizzi. Come sa¬ 
prete, il contenuto della ROM può 
venir cambiato a piacimento, in 
modo ad esempio da personaliz¬ 
zare l’Interprete Basic. Recente¬ 
mente (Papersoft n. 24) abbiamo 
infatti pubblicato il programma 
“User Basic", che consente di alte¬ 
rare le parole-chiave del linguag¬ 
gio Basic sostituendole con altre 
parole della stessa lunghezza. 
KEYPAD permette invece di ridefi¬ 
nire la tastiera del C64, realizzando 
un tastierino numerico strutturato 
come quello delle calcolatrici elet¬ 
troniche, utilissimo quando si de¬ 
vono digitare dati numerici. Dopo 
aver ricopiato la ROM in RAM (im¬ 
piegando poco più di un minuto), 
vengono memorizzate due routine 
in linguaggio macchina nell'area 
RAM che inizia da 49152 (SCOOO), 
senza rubare neanche un byte alla 
memoria Basic. A questo punto 
compare la scritta READY e il pro¬ 
gramma è attivato: premendo FI 
avremo a disposizione il tastierino 
numerico (e il bordo dello schermo 
diverrà rosso), mentre con F3 tor¬ 
neremo alla tastiera tradizionale 


(bordo rosa). Le configurazioni 
della tastiera nei due casi sono le 
seguenti: 

7 8 9 

U I O (standard) 

J K L 

M 

7 8 9 

4 5 6 (tastierino) 

1 2 3 

0 

Vi consigliamo di applicare ai tasti 
interessati delle piccole etichette 
autoadesive che ricordino il nume¬ 
ro ad essi associato. KEYPAD viene 
disabilitato se si preme RUN-STOP 
e RESTORE; per riattivarlo è suffi¬ 
ciente digitare SYS 50000. Chi vo¬ 
lesse modificare i colori che segna¬ 
lano il tipo di tastiera in uso deve 
agire sulle locazioni 49163 (colore 
bordo con tastiera in RAM) e 
49179 (colore bordo con tastiera 
in ROM). 

Il programma può essere facilmente 
modificato per passare dalla tastie¬ 
ra angolsassone (QWERTY) a quel¬ 
la italiana (QZERTY), che prevede 
la Z al posto della W e la Mal posto 
dei due punti. È sufficiente cancel¬ 
lare le linee 240 e 260 e togliere la 
REM all’inizio della linea 250. L’uso 
dei tasti funzione per commutare 
tra le due configurazioni è analogo 
a quello già descritto. 
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2 REM K E Y P A D 

3 REM PER C 64 

5 REM BY DAVID SANTINOLI 

20 REM COPIA BASIC + S.O. 

40 PRINT"{CLR}{GIU'}{ 11 SPAZI}ATTENDERE PREGO 
50 FORI-40960TO49151 :POKEI,PEEK(I):NEXT 
60 FORI«57344T065535:POKEI,PEEK(I):NEXT 
80 REM ROUTINES IN L.M. 

100 FORI*49152T049185:READA:POKEI,A:NEXT 
110 FORI*50000TO50012 : READA:POKEI,A:NEXT 
120 SYS50000 

140 DATA 165,203,201,004,208,012,169 
150 DATA 053,133,001,169,066,141,032 
160 DATA 208,076,049,234,201,005,208 
170 DATA 009,169,055,133,001,169,090 
180 DATA 141,032,208,076,049,234 
190 DATA 120,169,192,141,021,003,169 
200 DATA 000,141,020,003,088,096 
220 REM VALORI PER KEYPAD NUMERICO 
240 F0RI*48T054: READA: POKE60300+A,I:NEXT 
250 REM POKE60298,90:POKE60301,87:POKE60325,58 
77 

260 DATA 25,23,26,31,19,22,27 


rem 

212 

rem 

171 

rem . 

205 

rem 

61 

rem 

242 

rem 

146 

rem 

155 

rem 

81 

rem 

224 

rem 

190 

rem 

135 

rem 

220 

rem 

223 

rem 

232 

rem 

238 

rem 

39 

rem 

231 

rem 

18 

rem 

76 

rem 

206 

KE60334, 

rem 

75 

rem 

137 


84 


Indovina ì colorì 



Questo è un gioco che mette alla 
prova la memoria visiva,- possono 
partecipare fino a 9 persone. Lan¬ 
ciando il programma appaiono sul 
video alcune brevi istruzioni, dopo 
di che viene richiesto il numero ed 
il nome dei partecipanti. Inizia 
quindi il gioco vero e proprio: 18 
bandierine colorate in rosa, verde 
e giallo, disposte a triangolo, ven¬ 
gono mostrate per mezzo minuto. 
In questo tempo i concorrenti de¬ 
vono cercare di memorizzare la di¬ 
sposizione dei colori. Allo scadere 
dei 30 secondi le bandierine di¬ 
ventano tutte uguali, e a turno i 
giocatori devono tentare, parten¬ 
do dall'angolo inferiore sinistro e 
proseguendo verso destra ad arri¬ 
vare al vertice, di ricostruire i colo¬ 


ri. Ad una ad una le bandierine 
lampeggiano, e il giocatore deve 
premere il tasto corrispondente al¬ 
l'iniziale del colore (R-rosa, 
V-verde e G=giallo); se sbaglia 
passa la mano al concorrente suc¬ 
cessivo, e via di seguito finché tutti 
avranno avuto a disposizione tre 
tentativi. Al termine viene mostrata 
la classifica finale: il vincitore natu¬ 
ralmente sarà chi avrà indovinato 
il maggior numero di colori. Chi ri¬ 
tenesse eccessivi i 30 secondi può 
modificare la stringa “000030“ alla 
linea 520, sostituendola ad esem¬ 
pio con “000020“ (per 20 secon¬ 
di), e cambiare di conseguenza il 
messaggio stampato alla linea 220 
(istruzioni di gioco). 


o rem ************************* 

1 REM * "INDOVINAI 2 SPAZI}l{ 2 SPAZI}COLORI 
5 REM * DI ROBERTO MICHELOTTI * 

8 REM ************************* 

9 REM DIMENSIONA MATRICI-AZZERA IL SID 
I-PREPARA LA STRINGHE 

10 PRINT" {CLR}" :DIMCR (1 #17) ,A$ (4) ,BA$ (1 7) ,NG 
POKE53280,6:POKE53281,0 

13 FORA*54272TO54296 :POKEA,0 :NEXT 
16 POKE54296,15:P0KE54276,32:P0KE54277,60:PO 
OKE54272,25 

20 FORA*0TO4:READB:A$(A)*CHR$(B):NEXT 
30 FORC-OTOl8:READB:FORA-OT04 
40 A$(A)*A$(A)+CHR$(B):NEXTA f C 
50 FORB*OTO17 :FORA*OTO1 :READC 
60 CR(A,B)*C:NEXTA,B* 

63 : 

64 REM FA LA CORNICE DI BANDIERE 

65 X*0:A*1 

70 F0RY-lT036STEP5:G0SUBl800 
80 PRINTA$(A)JA-A+l:IFA>3THENA-1 


rem 

46 

rem 

22 

rem 

9 

rem 

54 

ÌGE I 

DAT 

rem 

116 

, PG (10) : 

rem 

199 

rem 

249 

I78,128:P 

rem 

114 

rem 

225 

rem 

68 

rem 

119 

rem 

66 

rem 

163 

rem 

163 

rem 

44 

rem 

25 

rem 

21 

rem 

154 


25 






ff 


90 NEXT:IFX-0THENX-20:GOTO70 
100 Y«1 

110 F0RX-5T015STEP5:GOSUBl800 
120 PRINTA$(A):A-A+l:IFA>3THENA-1 
130 NEXT:IFY*lTHENY*36:GOTOl10 

134 : 

135 0NSG0T081 0 

140 PRINTCHR8 (19)CHR$ (1 58) 

150 PRINTSPC(131)"INDOVINA I COLORI" 

160 PRINTTAB (10)"-" 

170 PRINTTAB(5)"IN QUESTO GIOCO OCCORRE BUONA" 
180 PRINTTAB(5)"MEMORIA E COLPO D'OCCHIO." 

190 PRINTTAB(5)"18 BANDIERINE, DI 3 COLORI DI-" 
200 PRINTTAB(5)"VERSI, APPAIONO ALL'INIZIO DEL" 
210 PRINTTAB(5)"GIOCO DISPOSTE A TRIANGOLO; SI 
220 PRINTTAB(5)"HANNO 30 SECONDI DI TEMPO PER" 
230 PRINTTAB(5)"MEMORIZZARE LA SEQUENZA DEI" 

240 PRINTTAB(5)"COLORI PARTENDO DAL BASSO E" 

250 PRINTTAB(5)"DA SINISTRA VERSO DESTRA FINO" 
260 PRINTTAB(5)"AD ARRIVARE AL VERTICE." 

270 PRINTTAB(5)"TRASCORSO IL TEMPO LE BANDIE-" 
280 PRINTTAB(5)"RINE DIVENTANO TUTTE UGUALI." 


300 IFPEEK (203) 060THEN300 
310 PRINTCHR$ (19) SPC (120) ; 

320 FORA=OTO15 

330 PRINTTAB(5)"{ 30 SPAZI}":REM 30 SPAZI 
340 NEXT 

350 PRINTCHR$(19)CHR$(158)SPC(125)"LO SCOPO DEL GIOCO E' 
RICOR-{ 2 SPAZI}" 

360 PRINTTAB(5)"DARSI LA SEQUENZA DEI COLORI. 

370 PRINTTAB(5)"SI PUÒ' GIOCARE DA 1 A 9 PER- 

380 PRINTTAB(5)"SONE, ALTERNANDOSI QUANDO UNO 
390 PRINTTAB(5)"SBAGLIA. SI HANNO 3 TENTATIVI 
400 PRINTTAB(5)"A TESTA: VINCE CHI SI RICORDA 


n 


vi 


420 PRINTTAB(5)"NUMERO DEI GIOCATORI?{ 7 SPAZIPOKEl98 
» 0 

430 GETZ$:IFZ$<"1"ORZ$>"9"THEN430 
440 PRINTZ$CHR$ (1 7)CHR$ (1 7)CHR$ (17) 

450 FORA*1TOVAL(Z$) 


480 NG$(A)*LEFT$(NG$(A),10):NEXT 


:rem 

54 

s rem 

88 

:rem 

64 

:rem 

197 

:rem 

150 

:rem 

210 

:rem 

91 

:rem 

206 

srem 

156 

srem 

72 

srem 

49 

srem 

225 

srem 

112 

srem 

115 

srem 

100 

srem 

151 

srem 

227 

srem 

119 

srem 

53 

srem 

116 

srem 

2 

srem 

41 

8) 


srem 

92 

srem 

207 

srem 

226 

srem 

51 

srem 

204 

srem 

214 

GIOCO 

E' 

srero 

97 

srem 

251 

srem 

189 

srem 

104 

srem 

230 

srem 

167 

HR$(5) 


srem 

28 

:POKEl98 

srem 

238 

srem 

141 

srem 

209 

srem 

132 

(A) 


srem 

196 

AZI 


srem 

189 

srem 

21 

I COLORII" 

srem 

68 
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500 

IFPEEK (203) 060THEN500 

: rem 

21 1 

510 

GOSUBl500:TI$*"000000" 

:rem 

1 20 

520 

IFTI$<"000030"THEN520 

:rem 

80 

528 

• 

• 

:rem 

217 

529 

REM INIZIO GIOCO 

:rem 

199 

530 

F0RA2-1T03 

: rem 

54 

540 

FORAI*1T0VAL(Z$):B%-0:GOSUBl600:A-0 

:rem 

44 

550 

X*22:Y*0:GOSUBl800 

: rem 

22 

560 

PRINTCHR$(5)NG$(Al)"» DI CHE COLORE ERA? " 

: POKEl98,0 



: rem 

58 

570 

IFA-18THEN680 

2 rem 

223 

580 

GETR$:IFR$*""THENGOSUBl900:GOTO580 

2 rem 

60 

590 

IFR$0"R"ANDR$0"G" ANDR$< >" V"THEN580 

2 rem 

42 

600 

IFR$*"R"THENR$*CHR$(150)+"ROSA{ 2 SPAZI}" 

G0T0625 




2 rem 

236 

610 

IFR$ *"G"THENR$ *CHR$(158)+"GIALLO":GOTO625 

2 rem 

109 

620 

R$-CHR$(30)+"VERDE " 

2 rem 

229 

625 

X-22:Y-30:GOSUB1800:PRINTR$ 

2 rem 

137 

630 

IFLEFT$(R$,1)*LEFT$(BA$(A) , 1 )THENJ-1:PG-PG+1: rem 

246 

640 

X*CR(0,A):Y*CR(1,A):GOSUB1800 

2 rem 

137 

650 

PRINTBA$(A) 

2 rem 

97 

660 

IFJTHENA-A+1:J-0:GOSUB2000:GOT0570 

2 rem 

59 

670 

GOSUB2100:FORRI-lTO2000:NEXT:GOSUBl700 

2 rem 

106 

680 

IFA>PG(Al)THENPG(Al)-A 

2 rem 

13 

690 

NEXTA1,A2:A3=0 

2 rem 

10 

698 

• 

• 

2 rem 

225 

699 

REM ORDINA I GIOC. IN BASE AI PUNTI 

2 rem 

174 

700 

A2-A3+1:Al*A3+2:A3*A3+1 

2 rem 

140 

710 

IFA3>VAL(Z$)THEN800 

2 rem 

82 

720 

FORA*A1TOVAL(Z $) 

2 rem 

197 

730 

IFPG(A2)>PG(A)THENNEXT 

2 rem 

89 

740 

IFA>VAL(Z$)THEN770 

2 rem 

40 

750 

A2*A:Al*A+1 

2 rem 

19 

760 

IFAl<*VAL(Z$)THEN720 

2 rem 

145 

770 

PG*PG(A2):NG$*NG$(A2) 

2 rem 

122 

780 

PG(A2)*PG(A3):NG$(A2)*NG$(A3) 

2 rem 

5 

790 

PG(A3)-PG:NG$(A3)-NG$:GOTO700 

2 rem 

136 

798 

• 

• 

2 rem 

226 

799 

REM STAMPA LA CLASSIFICA E ASSOCIA 

I GIOCATO 


RI A PARI MERITO 

2 rem 

33 

800 

S-l:PRINTCHR$(147):GOT065 

2 rem 

236 

810 

PRINTCHR$ (1 9)CHR$ (1 58) SPC (1 75) "CLASSIFICA" 

:rem 

188 

820 

PRINTTAB (14) "-" :PRINT 

2 rem 

219 

830 

A-l:K-l 

2rgm 

61 

840 

IFPG(A+l)-PG(A)THENJ*0:GOTO860 

2 rem 

13 

850 

J-l 

: rem 

85 

860 

IFKTHENAl-A 

2 rem 

151 

870 

PRINTTAB(4)A1CHR$(157)")"NG$(A)TAB(18)"CON 

"PG (A) TAB (2 


5)"BANDIERINE 

2 rem 

1 

880 

IFJ-0THENK-0:GOTO900 

2 rem 

217 


27 




890 

K-l 

:rem 

90 

900 , 

&-A+1:IFA-VAL(Z$)THEN860 

: rem 

122 

910 

IFACVAL(Z$)THEN840 

:rem 

35 

919 

• 

• 

:rem 

221 

920 ) 

PRINT:PRINTCHR$(5)TAB(10)"GIOCATE ANCORA? 

(S/N) - 

: POR 

El98,0 

:rem 

186 

930 < 

GETR$:IFR$O"S"ANDR$O"N"THEN930 

:rem 

98 

940 

IFR$-"S"THENRUN 

: rem 

154 

950 : 

FORA-54272TO54296 :POKEA,0:NEXT 

:rem 

51 

960 1 

PRINT"{CLR}":END 

:rem 

20 

998 

• 

• 

:rem 

228 

999 1 

REM LINEE DATA 

:rem 

22 

1000 

DATAI 54,150,158,30,5,18,21 3,192 

: rem 

16 

1001 

DATA201,17,157,157,157,202,192,203 

2 rem 

167 

1002 

DATAI 7,157,154,146,182,17,1 57,1 84 

2 rem 

136 

1003 

DATAI 6,6,16,10,16,14,16,1 8,16,22 

2 rem 

54 

1004 

DATAI 6,26,16,30,12,10,12,14,12,1 8 

2 rem 

92 

1005 

DATAI 2,22,12,26,8,14,8,18,8,22 

2 rem 

216 

1006 

DATA4,16,4,20,0,18 

2 rem 

135 

1498 

• 

• 

2 rem 

16 

1499 

REM STAMPA BANDIERE COLORI RANDOM 

2 rem 

68 

1500 

PRINTCHR$(147):FORA-OTOl7:A%-1 

2 rem 

41 

1510 

B-INT(RND(1)*3)+1 :IFB-C%THENl510 

2 rem 

71 

1520 

POKE214,CR(0,A):POKE211,CR(1,A) 

2 rem 

234 

1530 

SYS58732 :PRINTA$(B) 

2 rem 

144 

1540 

BA$(A)-A$(B):C%=B 

2 rem 

89 

1550 

IFA%THENNEXT:A%=0 

2 rem 

59 

1560 

RETURN 

2 rem 

172 

1598 

• 

• 

2 rem 

17 

1599 

REM STAMPA BANDIERE COLORI UGUALI 

2 rem 

75 

1600 

FORA-OTOl7:A%-1 

2 rem 

117 

1610 

POKE214,CR(0,A):POKE211,CR(1,A) 

2 rem 

234 

1620 

SYS58732 

2 rem 

209 

1630 

PRINTA$(B%):IFA%THENNEXT:A%-0 

2 rem 

30 

1640 

RETURN 

2 rem 

171 

1698 

• 

• 

2 rem 

18 

1699 

REM CANCELLA LINEA DOMANDE 

2 rem 

81 

1700 

FORC-1904TO1944sPOKBC,32 :NEXT 

2 rem 

40 

1710 

RETURN 

2 rem 

169 

1711 

• 

• 

2 rem 

4 

1798 

• 

• 

2 rem 

19 

1799 

REM SOUBROUTINE DI TABULAZIONE 

2 rem 

232 

1800 

POKE214,X:POKE211,Y 

2 rem 

149 

1810 

SYS58732:RETURN 

2 rem 

236 

1898 

• 

• 

2 rem 

20 

1899 

REM LAMPEGGIO BANDIERE 

2 rem 

142 

1900 

IFBt-OTHENBt-4:GOTOl920 

2 rem 

115 

1910 

B«-0 

2 rem 

159 

1920 

GOSUBl610; PORRI-1TO150:NEXT:RETURN 

2 rem 

10 
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1998 

• 

• 

:rem 

21 

1999 

REM SUONO COLORE ESATTO 

:rem 

232 

2000 

POKE54273,30 :POKE54276,33 

: rem 

136 

2010 

FORM*!TOl50 :NEXT 

:rem 

23 

2020 

POKE54276,32:RETURN 

srem 

166 

2098 

• 

• 

srem 

13 

2099 

REM SUONO COLORE ERRATO 

.srem 

221 

2100 

POKE54273,5:F0RM*1T015 

srem 

61 

2110 

POKE54276,33:FORMI=lTOl5:NEXT 

srem 

28 

21 20 

POKE54276,32 : FORMI * 1TOl5 :NEXTMl,M 

srem 

1 9 

21 30 

RETURN 

srem 

166 


Super Drums 


C 64 


_ 



Se ancora non siete convinti delle 
possibilità sonore del SID, il chip 
*ì musicale ' del C64, questo è un 
programma che farà ricredere an¬ 
che i più scettici. Questa volta il 
vostro computer si trasformerà in 
una batteria elettronica. 

Si possono ottenere le varie per¬ 


cussioni usando i tasti F, G, B, J e 
la barra spaziatrice. Con il tasto R 
è possibile avere un cocktail casua¬ 
le dei vari suoni, che può essere 
interrotto premendo S. 

Con Super Drums ognuno può di- 
ventere un maestro della batteria 
elettronica! 


% 


1000 

REM SUPER DRUMS 


srem 

191 

1010 

PRINTCHRS (147) 


srem 

61 

1020 

POKE53280,0:POKE53281,0 

srem 

24 

1030 

PRINTTAB(12)"{CYN}{RVS}{ 2 SPAZI}SUPER{ 

2 SPAZI}DRUM 


S{ 2 SPAZI} { 3 GIU')’’ 

srem 

30 

1090 

PRINTTAB (10)"[B] 

- GRANCASSA" 

srem 

238 

1100 

PRINTTAB (1 0)"[J] 

- RULLANTE" 

srem 

194 

ino 

PRINTTAB (1 0) " [F] 

■ TOM ALTO" 

srem 

120 

1120 

PRINTTAB(10)"[G] 

- TOM BASSO" 

srem 

194 

1130 

PRINTTAB (1 0) " [ ] 

- PIATTO" 

srem 

229 

1140 

PRINTTAB (10)" [Ri 

* ASSOLO CASUALE" 

srem 

54 

1150 

PRINTTAB (1 0) " [S] 

* FINE ASSOLO" 

srem 

92 

1160 

REM INIZIALIZZAZIONE 

srem 

127 

1170 

S-54272:Sl-54286 

:S2«54279 

srem 

104 

1180 

FORI-0TO 24 :POKEI+S,0:NEXT 

:rem 

117 

1190 

POKES+24,15 


srem 

112 

1200 

REM INPUT 


srem 

55 
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1210 

GETA$ 

:rem 

9 

1220 

IFA$*"R"THENl 720 

:rem 

133 

1230 

IFA$«"J"THENGOSUBl300 

:rem 

248 

1240 

IFA$«"B"THENGOSUBl380 

:rem 

249 

1250 

IFA$-"P"THENGOSUBl470 

:rem 

254 

1260 

IFA$«"G"THENGOSUBl560 

:rem 

0 

1270 

IFA$-" "THENGOSUB1650 

:rem 

186 

1280 

GOTO1210 

:rem 

200 

1290 

REM RULLANTE 

:rem 

23 

1300 

POKES2+4,0 

:rem 

51 

1310 

POKES2+5,8 

:rem 

61 

1320 

POKES2+6,0 

:rem 

55 

1330 

POKES2+4,129 

:rem 

162 

1340 

POKES2,200 

:rem 

58 

1350 

POKES2+1,90 

:rem 

110 

1360 

RETURN 

treni 

170 

1370 

REM GRANCASSA 

treni 

66 

1380 

POKESl+4,0 

treni 

58 

1390 

POKES2+4,0 

:rem 

60 

1400 

POKESl+5,4 

treni 

56 

1410 

POKESl+6,2 

:rem 

56 

1420 

POKESl+4,17 

treni 

109 

1430 

POKESl,2 

:rem 

217 

1440 

POKESl+1,7 

treni 

59 

1450 

RETURN 

:rem 

170 

1460 

REM TOM ALTO 

treni 

207 

1470 

POKESl+4,0 

:rem 

58 

1480 

POKES2+4,0 

trem 

60 

1490 

POKESl+5,4 

treni 

65 

1500 

POKESl+6,2 

:rem 

56 

1510 

POKESl+4,1 7 

trem 

109 

1520 

POKESl,2 

:rem 

217 

1530 

POKESl+1,20 

trem 

102 

1540 

RETURN 

:rem 

170 

1550 

REM TOM BASSO 

trem 

23 

1560 

POKESl+4,0 

:rem 

58 

1570 

POKES2+4,0 

trem 

60 

1580 

POKESl+5,4 

:rem 

65 

1590 

POKESl+6,2 

trem 

65 

1600 

POKESl+4,17 

:rem 

109 

1610 

POKESl,2 

trem 

217 

1620 

POKES1+1,15 

trem 

106 

1630 

RETURN 

trem 

170 

1640 

REM PIATTO 

trem 

128 

1650 

POKES+4,0 

trem 

9 

1660 

POKBS+5,9 

trem 

20 

1670 

POKES+6,0 

trem 

13 

1680 

POKES+4, 129 

trem 

120 

1690 

POKES,2 

trem 

176 

1700 

POKES+1,150 

trem 

104 
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1710 

RETURN 

:rem 

169 

1720 

REM ASSOLO 

:rem 

127 

1730 

R»INT (RND (TI) *5+1 ) 

srem 

35 

1740 

D»INT(RND(1)*1 00) 

srem 

170 

1750 

FORT»1TO50+D:NEXT 

srem 

102 

1760 

ONRGOSUB1300,1380,1470,1560,1650 

srem 

225 

1770 

GETB$:IFB$<>"S"THENl730 

srem 

79 

1780 

GOTO1210 

srem 

205 
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SCALDA IL JOYSTICK 
E GASATI CON 



IL VERO GIOCO COMINCIA ADESSO 






